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-TITLE SATSSE4O SATS SYSTEM SERVICE TESTS S$WAKE (SUCC S.C.) 
“IDENT *v04-000' 
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; FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
; ABSTRACT: 


THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
MMON.OBJ, Ag TEST MODULE SATSSS40 TO TEST SUCCESSFUL 
$ SERVICE SERVICE IS_ INVOKED 


; ENVIRONMENT: ete MODE IMAGE; NEEDS CMKRNL PRIVILEGE, | 
; DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 
| 
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; AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: OCT, 1977 
; MODIFIED BY: 


: ERSION 1.5 : 25-MAY-79 
; 01 LDJ 10/11/79 Fixed bug caused by DIBSK_LENGTH change ACGO52.RNO mem 
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SATSSS40 SATS SYSTEM SERVICE TESTS S$WAKE Gute $ 44-SEP-1984 AX/VM 
5002800 DECLARATIONS ar eeemi the Besstioe Loe vey caescalecsco mans: 2% 6, 
. ~SBTTL DECLARATIONS 
5 3 INCLUDE FILES: 
g . SPRVDEF : PRIVILEGE BIT DEFINITIONS 
60 SPHDDEF + PROCESS HEADER OFFSETS 
a a:  PeeteaaetgOTs comes 
$608 8 SDIBDEF : DEVICE INFO BLOCK OFFSETS 
0006 64; 
9900 65 ; MACROS: 
0900 8$ ; 
00 68 : EQUATED SYMBOLS: 
0000 69 ; 
900 0: 
000 71 : OWN STORAGE: 
000 té 3 


1 
SATSSS40 SATS SYSTEM SERVICE TESTS $WAKE Rsucc $ 16S pot 4 00:53: AX/VMS Macro V04-0 Page 
9042000 DECLARATIONS Breer 1 ahs Bese oo PORTNeS Sacco YeesOe anes Pee GZ, 
0000 74 -PSECT. RODATA, RD .NOWRT ,NOEXE , LONG 
{3 TEST_MOD_NAME:: STRING C.<SATSS$S40> | ; TEST MODULE NAME 
E TEST “MOD "NAME. D: STRING 1,<SATSSS40> TEST RODULE NAME DESCRIPTOR 
19 77 MSGIINPTCTL:~ STRING I.< SSWAK! GZ: one NS:> 
9 £8 FAO CTL STRING FOR MSG1 IN SUCCOMMON.MAR 
9 79 MSG3_ERR_CTL:: STRING I,< *SSWAK!4Zw: 'AS> 
1 0 : FAO CTL STRING FOR mss IN SUCCOMMON.MAR 
051 SUBJPRN: STRING 1,<SATSSS40_CRE>’; PROCESS & MBX NAME FOR CREATED PROCESS 
0 5 c IMAGNAM: STRING 1,<SYSTSTSRES: : SATSUTO6.EXE> IMAGE NAME FOR CREATED PROC 
4 QUOTALIST: SQUOTA CPULM, ; INFINITE chy 
089 nA $QUOTA BYTLM.512 : BYTE LIMIT FOR BUFFERED I/0 
OBE 6 $QUOTA FILLM.2 ; OPEN FILE COUNT LIMIT 
6 SQUOTA PGFLQUOTA, ; PAGING FILE Qu 
098 =: 87 SQUOTA PRCLM, ; SUBPROCESS QUOTA 
009D ~=«-:-&&B $QUOTA TQELM. + TIMER QUEUE ENTRY QUOTA 
O0OA2 = 89 SQUOTA LISTEND + DEFINES END C® LIST 
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SATSSS40 SATS SYSTEM SERVICE TESTS S$WAKE (SUCC S$ ot th 9 0: $3: 08 Yee eey en vosees Page 4 
VO4= DECLARATIONS “SEP=1984 UETPSY.SR {SAT $SS40.MAR;1 (1) 
a 9 ~PSECT RWDATA,RD,WRT ,NOEXE,LONG 
ak g tb ry -BLKQ 1 : pat OF PRIVILess MASK (IN PHD) 
MBX CHA -BLKL 1 3 NO. FOR MAILBOX FOR es fol PROCESS 
C 94 MBXCH ANINFO: ; CHANNEL INFO RETURNED BY GETCHN 
0074 f 95 -LONG  DIBS$K_LENGTH 
2090 14" 001 38 sADDRESS .+ 
3 ge 14 9 ~-BLKB DIBSK_LENGTH 
000008C 8 a8 MBXUNIT: -BLKL 1 ; SAVE AREA FOR MAILBOX UNIT NUMBER 
O8C 99 MBXBUFF: STRING 0,120 ; MAILBOX BUFFER FOR CREATED PROCESS 
464 9 Bg 1 3 100 DEST _PIDADR ~BLKL 1 ; DESTINATION PID ADDR, WRITTEN BY S.S. 
0000114 011 101 ZEROPID: ~BLKL 1 ; PID OF ZEROES 
BRRReoe 1144 1 § SELFPID: ~ LONG 9 ; PID OF THIS PROCESS 
f 118 1035 CREPID: ~BLKL ; PID OF CREATED PROCESS 
000012 11C =6104 SUBJPID: ~BLKL 1 ; PID OF SUBJECT PROCESS (SELF OR OTHER) 
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~SEP=19 
.SBTTL CONDITION TABLES 
weet CONDITION TABLES FOR WAKE SYSTEM SERVICE see 
COND —-1,NOTARG, <PID ADDRESS>, ~ 
<NOT SPECIFIED>, 


<s CIFIED, NON N-ZER 0>,- 
<SPECIFIED, ZERO>,=- 


4 UETPSY.S 


- ADDRESS 0 
- ADDRESS SUBJPID 
ADDRESS ZEROPID 
COND 2. worané <PROCESS NAME ADDRESS>,- 


CIFIED>,- 
choy CSPeEITIED>, - 


.ADDRESS | SUBJPRN 
“ADDRESS =O 
COND 3, cranes TYPE>, = 
<SUBP PROC $$>, 


E 
<DETACKED, DIFFERENT GROUP>,- 
<DETACHED, SAME GROUP, SAME MEMBER> 
<DETACHED, SAME GROUP, DIFFERENT MEMBER>, - 


- LONG “XFFFFFFFF ; PSEUDO-UIC 
- LONG 0 ; PSEUDO-UIC 
-BLKL 1 ; UIC 
~-BLKL 1 ; UIC 
-BLKL 1 ; UIC 


COND 4, NULL 
COND 5.NULL 
«-PSECT SATSSS40,RD,WRT,EXE 


v04-0 
SRCISATSSS20.MAR: 1 
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00000000 'EF 
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VICE TESTS SWAKE Esucc $ 16-SEP-1984 3; AX/VMS Macro V04-0 Page 
EANUP ~Pee reas Boi sti8S LOE HES Bacse vets e ars 29 
se .SBTTL TM_SETUP, TM.CLEANUP 
FUNCTIONAL DESCRIPTION: 
: M_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM 
; REQUIRED HOUSEKEES 4) Fl AT THE BEGINNING AND END, RESPECTIVELY, OF 
: TEST MODULE EXECUTION 
: CALLING SEQUENCE: 
: BSBW TM_SETUP BSBW TM_CLEANUP 
: INPUT PARAMETERS: 
: NONE 
: IMPLICIT INPUTS: 
: NONE 
: OUTPUT PARAMETERS: 
: NONE 
+ IMPLICLi OUTPUTS: 
: TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
: ALL PRIVILEGES ACQUIRED. 
: COMPLETION CODES: 
: EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
: SIDE EFFECTS: 
: $S_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
: (VIA RSB) IF ERROR ENCOUNTERED. 
TM_SETUP: : 
CLRL Re ; INITIALIZE 
CLRL oR : .. CONDITION 
CLRL RG : Ill. TABLE 
CLRL RS ° eeeeee INDEX 
CLRL = R6 t paint te REGISTER 
BSBW MOD_MSG P PRINT TEST MODULE BEGIN MSG 
MOVAL TEST_MOD et tt TMD ADDR : ASSUME END MSG WILL SHOW SUCCESS 
INSV #SUCTESS7#0,45,MOD_MSG_ cio ; ADJUST STATUS CODE FOR SUCCESS 
MODE RN : KERNEL MODE TO ACCESS PHD 
MOVL Wie Ske R9 GET gp hocess HEADER ADDRESS 


MOVAL Hat PRIVRSK (RO) SPRIVMASK ; GET PRIV MASK AD 
FROM,5$ ; BACK TO USER MODE 
PRIV ADD, ALL * ; GET ALL PRIVILEGES 


OO 


SATSSS40 SATS TEM SERVICE prests SWAKE bsute S$ 16-SEP-1984 00:53: AX/VMS Macro V04-0 Page 7 SA 
$042080 TM_SE Sty fi 30:37:88 YUETPSY. sh RCJSAT Weeseo. MAR; 1 . (1) Ta 

SSETPRN_S TEST_MOD_NAME_D 3 SET PROCESS NAME 

35 CHECR NORMAL ; CHECK STATUS CODE RETURNED FROM SETPRN 

WAKE_S SELFPID ; GET MY PID 

3 CHECK NORMAL 3 CHECK FOR NORMAL RETURN 

HTBER_S 3 UNDO ABOV E 

SS_CHECK NORMAL ; CHECK FOR NORMAL RETURN 


; THE FOLLOWING CODE ESTABLISHES UIC’S IN THE CONDITION 3 TABLE 


MODE : KERNEL MODE TO ACCESS PCB 
59 00000000'9F 00 MOVL an scusél Cunece R9 : GET CURRENT PCB ADDRESS 
59 008C C9 0 MOVL  PCBS$L Lyie (R9) RO ; PICK UP UIC FROM PCB 
MODE FROM, 20$ : ... AND GET BACK TO USER MODE 


! RO NOW CONTAINS "MY" UIC 


SA WOVZBL #2,R10 : GET COND3 TABLE INDEX NUMBER INTO A REG 
59 0093940000, BF C1 ADDL3  #*X10000,R9,COND3_ECR10]'; PUT DIFF GROUP UIC INTO 3RD TABLE ELT 
SA 6 INCL R10 : POINT TO 4TH COND3 TABLE ELEMENT 
Q000024A'EF4A 59 00 MOVL - R9, COND3_ECR10 t PUT MY UIC INTO T 
SA Ob INCL Ri 16) t POINT TO 5TH COND3 TABLE ELEMENT 
QOO0024A"EFGA 59 01 C1 ,COND3_ELR10) : PUT DIFF MEMBER UIC INTO THE TABLE 


ADDL3 
SCREMBX § "thi “MBX CAN, LOGNAM=SUBJPRN, = ; Ger MAILBOX FOR PROCESS 
wit G=#120, PROMSK=#0, BUFQUO=#24 
SS_CHECK MAL ; CHECK NORMAL COMPLE’ ION 
SGETCHN_ *y CHAN MBX CHA’ : GET CHAN INFO (UNIT NUMBER) 


PRIBUF= SMBXCHANINEO 
HECK NORMAL ; CHECK NORMAL COMPLETION 
MOUTUL MBXCHANINFO*8+D18SW_ UNIT, MBXUNIT SAVE MAILBOX UNIT NUMBER 


00000088'EF  00000020'EF 
RS P RETURN 10 MAIN ROUTINE 
TM_CLEANUP: : 
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FWN  - OVWONOUEWN "OO ONOUES WN -OOONOU Fw > 
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SDELMBX _5 _MBXCHAN ; DELETE TERMINATION MAILBOX 
FOCF' 30 BSBW “MOD_MSG_PRINT ; PRINT TEST MODULE END MSG 
05 RSB ; RETURN TO MAIN ROUT INE 


[eee 
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SATSSS40 SATS SYSTEM SERVICE TESTS $WAKE Rsute s 16-SEP-1984 AX/VMS Macro V04=0 Pa 
y042000 CONDITION SUBROUTINES - SETUP AND RPE ANG mets 7 82: 37: 88 UETPSY.SRCJS 449 e520. MAR:1 oe d) 
Y $ ; .SBTTL CONDITION SUBROUTINES = SETUP AND CLEANUP 
: 3 FUNCTIONAL DESCRIPTION: 
0 40 : CONDX AND CONDX_CLEANUP ARE SUBROUTINES WHICH ARE EXECUTED 
0 41 : BEFORE AND AFTER THE VERIFY SOBROUTINE, RESPECTIVELY, WHENEVER 
0) 42 : CONDITION X VALUE IS SELECTED (SEE FUNCTIONAL DESCRIPTION OF SUC CORON 
6 43 ; ROUTINE IN SUCCORMON MAR) ANY SETUP FUNCTION PARTICULAR TO THE 
2 44 : CONDITION X TABLE IS INCLUDED IN THE CONDX SUBROUTINE AND CLEANED 
45 : UP, IF NECESSARY, IN THE CONDX CLEANUP SUBROUTINE. THIS INCLUDES 
46 : ESPECIALLY, CODE TO DETECT CONFLICTS AMONG CURRENT ENTRIES IN TWO 
47 : OR MORE CONDITION TABLES. IF A CONFLICT IS DETECTED, A NON-ZERO 
48 ; VALUE IS STORED INTO CONFLICT, WHICH CAUSES THE CALLING ROUTINE 
43 + (SUCCOMMON) TO SKIP THE CURRENT ENTRY IN THE CONDITION X TABLE. 
21 + CALLING SEQUENCE: 
0 2g : BSBW CONDX _BSBW CONDX_CLEANUP 
8 3 ; WHERE X = 1,2,3,4,5 
023 36 : INPUT PARAMETERS: 
02> 57 3 
8 28 $ CONFLICT = 0 
0 60 + IMPLICIT INPUTS: 
02 6¢ : 4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
0 ; 63 ; Rea COND TABLES 1,2,3,4,5, RESPECTIVELY. 
0 65 : OUTPUT PARAMETERS: 
0 e ; CONFLICT SET TO NON-ZERO IF COND TABLE CONFLICT DETECTED. 
6 $9 : IMPLICIT OUTPUTS: 
0 3 4 : R2,3,4,5,6 PRESERVED 
0 7 + COMPLETION CODES: 
0 75: NONE 
0 76; 
0 : SIDE EFFECTS: 
8 : NONE 
0: 
{oo 
4 
5 COND1:: 
05 6 ; RETURN TO MAIN ROUTINE 
COND1_CLEANUP: : 
05 é RSB ; RETURN TO MAIN ROUTINE 
4 COND2 
05 4 0 RSB ; RETURN TO MAIN ROUTINE 
3 91 COND2_CLEANUP: : 
05 92 RSB ; RETURN TO MAIN ROUTINE 


SATSSS40 SATS 
04-000 CONDI 


P=19 


c<= 


ETUP AND CLEA Ni UETPSY.SRCJSATSSS40.MAR; 1 (1) 


N. 1 
E TESTS $WAKE (SUCC SEP-1984 00: AX/VMS Macro V04-0 P 9 SA) 
ieses Merger r198¢ bo 537.09 assays - 
QO00016B'EF42  O000011C'BF 0 CMPL #SUBJPID, COND1_ECR2] ; NON-ZERO PID SPECIFIED ? 
1 BEQLU 1 : == PROCESS IS ‘OTHER’ 
0000C1AD "EF D TSTL COND2_ECR33 : IS PROCESS NAME SPECIFIED ? 
1 BEQL i t NO == SUBJECT PROCESS IS ‘‘SELF’’ 
4 pj CMPL = RG, #2 : DOES CONDITION 3 SPECIFY DIFFERENT GROUP ? 
0 1 BEQL 0g : YES == PROCESS NAME FOR DIFF GROUP IS CONF 
10 #11 a BRB 0$ : NO == MAKE SURE COND 3 SPECIFIES ‘OTHER’ 
+ PROCESS IS ‘SELF’ 
6 = 


O0000024A'EF 44 aeneecedl 4 


CMPL one 5 «COMBS ELAS. ; DOES wage Me oy 3_SPECI 
OE 


CIFY "'S 
BEQLU COND X + YES == THEN ALL 3 CONDIT'NS ARE CONSISTENT 
oo BRB 0$ t NO == INDICATE CONFLICT & GET OUT 
: PROCESS IS "OTHER" 
: CMPL ONES, COND3_ECR4) : DOES CONDITION 3 SPECIFY ‘SELF’ ? 
~ BNEQU CONDSx : NO -- THEN ALL 3 CONDITIONS ARE CONSISTENT 
MOVB ONES, CONFLICT : YES -= INDICATE CONFLICT 
" RSB ; RETURN TO MAIN ROUTINE 
COND3. CLEANUP: : 
RSB ; RETURN TO MAIN ROUTINE 
*" RSB ; RETURN TO MAIN ROUTINE 
COND4_ CLEANUP: 


; RETURN TO MAIN ROUTINE 
| 
| 
| 
| 
| 
| 
| 
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208: 
O0000000'EF  00000000'Er 90 

COND3X 

05 

05 
COND 

05 

05 
CONDS 

05 ; RETURN TO MAIN ROUTINE 
CONDS_CLEANUP: : 

05 RSB ; RETURN TO MAIN ROUTINE 
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vO4=000 FORM_ $s $23 p=1 984 2:31:09 UETPSY. SREISATSSSCO.MAR: 1 » 1) 
~SBTTL FORM_CONDS 
FUNCTIONAL DESCRIPTION: 


FORM CONDS FORMATS AND PRINTS ttt hee ABOUT 
THE CURRENT ELEMERT IN EACH OF THE CONDITION TABLES. 


CALLING SEQUENCE: 
BSBW FORM_CONDS 

INPUT PARAMETERS: 
NONE 


rrorororororoerorororrnn Ox 
CocepcD CO CRODCVCNCEOCNCRCDODCD Zu) 
WAAL AINI AAAI AAAS OO 4 


S 
C 
9 
0 ;+ 
13 
4: 
: ¢ 
5 | 
8 40; 
0 41 ; 
028 rk ; 
bees re: 3 IMPLICIT INPUTS: 
0283 346 : 7.4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
085 47 : Rees 3 OND TABLES 1,2,3,4,5, RESPECTIVELY. 
028 48 ; FOR : = 1,2,3,4,5 : 
0683 49 ; COND x T= TITLE TEXT FOR CONDX TABLE 
0 83 50; X“TAB = ELEMENT TEXT FOR CONDX TABLE 
028 51: COND A “C = CONTEXT OF THE CONDX TABLE 
0283 32 ; CONDX"E = DATA ELEMENTS OF THE CONDX TABLE 
0983 $5 : OUTPUT PARAMETERS: | 
EE BE oe 
0285 32, : IMPLICIT OUTPUTS: | 
026 359 ;: 
o5e3 3c] _— | 
0283 36¢ ; COMPLETION CODES: | 
SE oe | 
0883 66 ; SIDE EFFECTS: 
0 8 68 : NONE | 
0 53 70 :-- 
028 4 
74 FORM_CONDS:: 
75 $FAO_S MSG1_INP_CTL,FAO_LEN, FAO_DESC. TESTNUM 
A 7 7 FORMAT CONDITIONS HEADER MSG | 
FD5B° 39 he 7 BSBW OUTPUT_MSG t «.. AND PRINT IT 
14 09 1 O2A 7 CMPB = #COND1-C, NULL : is "CONDITION 1 NULL ? | 
12 02a8 37 BNEQU : NO == CONTINUE 
00BF 31 AA 0 ts BRW FORM_CONDSX > YES == SUBROUTINE IS FINISHED 
3 | 
O00120"EF oD AD MOVAL COND! > SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
900001 ap'Erep Of BB : MOVL COND1~ “TABER?I MSG_B ; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO | 
90 02C4 i MOVE = #COND G_CTxT~ SAVE CONDITION 1 CONTEXT FOR FAO 
2cB 5 MOV_VAL COND1_C, CARBT _ECR2],MSG _baial ; GIVE COND 1 DATA VALUE TO FAO | 
| 
| 
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FORMAT AND Neh mm eee 1 MSG 


~SEP-1984 


WRITE_MSG2 
Fa OND2” Me SNULL 


FORM_CONDSX 


Eono8-1 atts : SAVE ADDRESS OF CONDITION 2 TITLE FOR 

COND tie R3] MSG_B ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR 
G_€TxT SAVE CON R FAO 

ton Doe : CO ND2. etR3), MSG_ BaTAl “GIVE D 2 DATA VALU TO FAO 

WRITE” > FORMAT AND oR Ve c OND 1 TION MSG 

FCOND3” C,#NULL 3; IS CONDITION 

3 ; NO == CON TINUE 

FORM_CONDSX + YES == SUBROUTINE IS FINISHED 


i> nag HE NULL 
YES == SUBROUTINE IS FINISHED 


COND : SAVE ADDRESS OF CONDITION 3 TITLE FOR 
COND STABERE MSG B ; SAVE ADDR OF COND 3 CUR TEXT ELT FOR 
Eonns-t' SAVE CONDITION x context FAO 
COND ‘t c ENDS EtRS), MSG_ baTAI : solve D 3 DATA VALUE TO FAO 
; FORMAT AND ORITE’C CONDITION 3 MSG 
BCONDES $6 #NULL : IS CONDITION 4 NULL ? 


FORA COND Sx 3 YES == SUBROUTINE IS FINISHED 
CONDE ats) ; SAVE ADDRESS OF CONDITION 4 TITLE FOR 
COND4 “Tis RJ. MSG a: ) ; SAVE ADDR OF COND 4 CURR Text ELT FOR 
#CONDS _C CTXT SAVE CONDITION 4 CONTEXT FOR FAO 
CONDE 4¢ CC ONee. *ECRSI, MSG_ baTal : GIVE COND 4 DATA VALUE TO FAO 
RITE-MSG2 FORMAT AN ON 4 MSG 


SCONDS C,#NULL 3; Is CONDITION NULL ? 

FORM_CONOSX : YES == SUBROUTINE IS FINISHED 

foNos Taser A : SAVE ADDRESS OF CONDITION 5 TITLE FOR 

COND5 “TAB RB] MSG_B ; SAVE ADDR OF COND 5 CURR TEXT ELT FOR 

#CONDS _C SAVE CO OND I TION 5 CONTEXT FOR FAO 

CON D> rf CONBS “EtRO), MSG _baTAL ; GIVE COND 5 DATA VALUE TO FAO 
“MSG2 ; FORMAT AND URITE CONDITION 5 MSG 


; RETURN TO CALLER 
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SERVICE TESTS $WAKE Fsutc S 16-SEP-1984 AX/VMS Macro v04-0 P 13 
sett fi 88 3 8 UETPSY.S Bae aay eese0.MAR: 1 oer td 
VERIFY 
1318 CELAG { SHOULD CONDITIONS BE PRINTED ? | 
o BSBW  FORM_CONDS ; YES == FMT & PRINT ALL CONDS FOR THIS T.C. 
mOVL SELFPID,SUBJPID : ASSUME THE SU SUBJECT PID IS SELF | 
CHPL QNES, COND3_ECR4] : Is PROCESS FOR THIS TEST CASE SELF ? 
BRW 10$ + YES -=- DON'T CREATE A PROCESS 


~ 
ow 


D, PRCNAM=SUBJPRN, - 
rj, IMAGE= IMAGNAR, 
DE STACODOTAL TST. MBXUNT=MBXUNIT 

; CAME THE SUBJECT PROCESS 


SCREPRC_S Gleorcest NOSE 


SS_CHECK NORMAL owes AND MAKE SURE IT CREATED OK 

MOUL CREPID,SUBJPID ; MAKE THE SUBJCT PID = THE ONE JUST CREATED 
MOVL COND1 EER ST RSTn OAR sr PID ADDRESS OUT OF TABLE 

MOVL COND2-ELR3J,R9 ; PRCNAM ADDR INTO REG FOR INDIRECT REF"RNCE 


i 
10: | 


; teeeee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE teeeee 
SWAKE_S PIDADR=@DEST_PIDADR, a 


CMPL RO, #SS$_NORMAL : E RECEIVED = CODE EXPECTED ? 
BEQLU «188 i YES =~. CONTINUE | 
MOVL #SS$_NORMAL,EXPV ; NO ~~ LOAD UP EXPECTED AND .. 
MOVL RECV RECEIVED VALUES, THEN EXIT 

- ERR_EXIT LONG, <INCORRECT STATUS cope RETURNED FROM WAKE> 
TSTL DEST_PIDADR ; PID RETURNED BY WAKE ? 
BEQL 0$ ; NO =~ KEEP 
CMPL SUBJPID,@DEST_PIDADR : YES ~~ IS IT THE CORRECT ONE ? 
BEQL 20$ : YES -= CONTINUE 
MOVL SUBJPID,EXPV ; NO --LOAD UP EXPECTED A 
MOVL @DEST_PIDADR,RECV ; RECEIVED VALUES, THEN EXIT 

pti ERR_EXIT LONG><INCORRECT PID RETURNED BY WAKE> | 
CMPL GREPIO. SUBJPID ; WAS A PROCESS CREATED ? 
BEQLU ; YES -- GO WAIT FOR IT TO COMPLETE 
$HIBER_S ; NO == OFFSET SUBJECT W WAKE WITH HIBER 
SS_CHECK NORMAL : CHECK FOR NORMAL RETURN 
BRE VERIFYX : ... AND GO EXIT 


30$: | 
$Q10W_S em MBXCHAN, ae 


P1=MBXBUFF+8, P2=MB 
; WAIT FOR CREATED PROCESS TO SEND MAIL 
SS_CHECK NORMAL ; CHECK FOR NORMAL STA;US CODE 


RSB ; RETURN TO CALLER 


VERIFYX: 
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| 
| 
VFY_CLEAN -SEP=1984 UETPSY. SRCJSATSSS40.MAR: 1 ) 
A - ~SBTTL VFY_CLEANUP 
A gi: : FUNCTIONAL DESCRIPTION: 
SA 8 VFY_CLEANUP EXECUTES SYSTEM SERVICES TO UNDO THE 
SA : EFFECT OF THOSE ISSUED IN THE VERIFY SUBROUTINE. VFY_CLEANUP MUST | 
2A 40 : ASSUME THAT VERIFY MAY NOT HAVE EXECUTED IN ITS ENTIRETY (IF AN 
A 41 ; ERROR IS FOUND). ALSO, VFY_CLEANUP MAY ISSUE SS_CHECK OR ERR_EXIT 
SA 4¢ : ONLY AFTER PERFORMING ALL OF ITS CLEANUP OPERATIONS: THIS IS REQUIRED 
SA 43 : IN THE EVENT THAT VFY_CLEANUP IS CALLED DURING ERROR PROCESSING, 
SA 44 3 WHEN PERFORMING THE REQUIRED CLEANUP IS MORE IMPORTANT THAN | 
3A 49 : POSSIBLY DISCOVERING A SECOND ERROR. | 

OA ‘3 ; CALLING SEQUENCE: | 

O5A 49 ; BSBW VFY_CLEANUP | 

OSA 50 ; 

OA 3] : INPUT PARAMETERS: | 

ii 

OA 338 : IMPLICIT INPUTS: 

05a3 557 : R2,3.4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 

O5a3 558 ; FOR COND D.TABLES 1,2,3,4,5, RESPECTIVELY. 

OSA 259 : FOR X = 1,2,3,4,5 : 

OSA 60 : cONbx E‘= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 

05A 361 : ABCE. IF THE CONTEXT OF PABLE 1S A SYSTEM SERVICE 

OSA 6¢ : ARGURENT. THE ARGUMENT NAME MAY BE USED AS A SYNONYM 

Bea 27 ; FOR CONDX = ? 

OSA 65 : OUTPUT PARAMETERS: 

Bie 

O5A 369 t IMPLICIT OUTPUTS: | 

03h 371 : NONE 

OSA 378 > COMPLETION CODES: 

OSA 378 ; EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 

OSA r ; SIDE EFFECTS: 

OSA 8 : SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT | 
3A 280 : (VIA RSB) IF ERROR ENCOUNTERED. 
SA i-- 
aA a8 
A 3S | 
5A § VFY_CLEANUP: : 

0000011C EF 00000118 "EF D1 3A CHPL CREPD, SUBJPID ; WAS A PROCESS CREATED FOR THIS TEST CASE a 
280 § DELPRC_S SOBJPI : YES == DELETE IT 
SBF 0 VFY_CLEANUPX : 
| 
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SATS SYSTEM S$ 
VFY_ CLEANUP 
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; RETURN 


TO CALLER 


ov 
SAT 


$$S40. 


H | 
SATSSS40 SATS SYSTEM SERVICE TESTS S$WAKE suec S Vg-$EP-1986 80:53:00 AX/VMS Macro ¥94<00 age 16) 
Symbol table ~SEP=1984 04:31: UETPSY.SRCJSATSSS40.MAR; 1 (1) | 
$$$ 2 4CE R DIBSW_UNIT = 0000000¢ | 
SSSCHARS = E EFLA geeeeree 4 
SSSCHARS1 = 4 EXP eeereeee 4 
SSSCHARS = A FAO DESC eeeereee 4 
SSSCHARS = 9 FAO-LEN eeeeeeee 6 
SSSCHARSG : 0 1 FORM_COND 0 0983 4 
SSSCHARSS s 6 FORM” CONDSX 0 6¢ R 4 
SSSCOND A = 4 IMAGRAM 0065 R 2 
SSSSTRINGS z 1 10$_READVBLK aeeteree xX 04 
SSSSTRINGS2 = 99 5 LONG = 00000004 G 
$$T1 = 00000001 MBXBUF F 00008C R 03 
$$T2 = 3 4 MBX CHAN 8 p38 R B3 
BYTE s 1 G MBXCHANINFO e 
CFLAG eeeeeree §=6X 4 MBXUNIT 0000088 R 03 
CHMRTN eeeenere =X 06 MOD_MSG_CODE aeereeee xX 04 
CHM_CONT eeeeeeee =X 04 MOD-MSG-PRINT geeeeere 4 
COMP_ SC eeeeeeee =X 06 MSGT_INP_CTL 00000019 R 02 
CONDT 00000232 RG 04 MSG3_ERR_CTL 00000039 RG 02 
COND1_C = 00000 SG eeereree X 04 
COND1~ CLEANUP $o0008 RG 04 MSG_ aeneeeee§ =X = =04 
COND17E 90001 f 03 MSG_CTXT aeeeeeee =X 04 
COND1_H 0000012C RG 03 NOTARG = 00000000 G 
COND1_ 00000120 R 03 NULL = 00000014 G 
COND1"TAB 00000120 R 03 ONES eeenenee =X 04 
COND2~ 00000234 RG 04 OUTPUT_MSG . aeeeeeee =X 04 
COND2_C = 00000 PCBSL_OIC = 0000008C 
COND2_ CLEANUP 00000 RG 04 eeneeeee =X = =—0G 
COND2_ QOOOOIAD R 03 PHD$Q_PRIVMSK = 0000000 
COND2_H adh RG 03 PQL$_BYTLM = 000000 
COND2_ 00000177 R 03 PQL$_CPULM = 44444 
on la 0000018D R 03 PQLS_FILLM = 00000006 
COND 00000236 RG 04 PQL$_LISTEND z 90000009 
COND 3X 0000027D R 04 PQL$_PGFLQUOTA = 0000000 
COND3_C = 00000 9 PQL$_PRCLM = 00000008 
COND3_ CLEANUP BO 8boS E RG 04 PQL$ TQELM = 0000000 
COND3_E 0000024A R 03 PRIVAASK 0000000 R 03 
COND3_H 000001C2 RG 03 PRIV_ARGS = 00000002 
COND3_T 00000185 R 03 PROCESS_ERR aeeeeeee =X 04 
COND3_TAB sag 308 R 03 QUAD = 00000008 G 
COND 0000027F RG 04 QUOTALIST 00000084 R 02 
COND4_C = 00000014 RECV aeeeeeee =X = 04 
COND4~ CLEANUP $000 ORG 04 REST_REGS aeeeeeee X 04 
cone GOORseE Re SNE Sbpoce Sag 
Tl ai ea Sean 
COND5_C = 6000 i SUBJPID 0000011C R 05 
CONDS— CLEANUP 0000282 RG 4 SUBJPRN 00000051 R 
COND5S—H 6 F RG UCCES eeeeeeee =X 04 
5"T O002SF R SYSSCMKRNL aeeeeeee GX 04 
COND5- TAB 000025F R SYSSCREMBX eeeeerer GX 04 
CONFLICT aetereee§ X 04 SYSSCREPRC eeeeeeee GX 04 
CREPID 00000118 R 3 SYSSDELMBX tenenere GX 04 
CTL$GL_PHD reeerere 4 SYSSDELPRC aeeeeeee GX 04 


Oo 
Ww 


x 

DESC = 00010 G SYSSFAO eeeeeeee 86 4 
DEST_PIDADR 00909 Of R SYSSGETCHN eeeeeere 6X 4 
DIBSR_LENGTH = 074 SYSSHIBER eeeneree GX 


jee working set Limit was 1350 pages. 

46712 bytes (92 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 487 non-local gre 44 local symbols. 
592 source Lines were -ead in Pass 1, producing 24 object records in Pass 2. 

46 pages of virtual memory were used to define 36 macros. 
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SATSSS40 SATS SYSTEM SERVICE TESTS S$WAK i 16-SEP-1984 00:53: AX/VM 
Symbol table e ksube s SSEp=1984 burst s09 LurtPer.see 
SYS$Q10W teeneere GX 4 
SYSSSETPRN eeeeeeee GX 4 
SYSSSETPRV eeeeneee GX 4 
SYSSWAKE eeeeeeee 6X 4 
TEST ROD_NAME 99000000 RG. 03 
TEST-ROD-NAME._D Bo000009 R°O3 
TEST_MOD_SUCC ettereee é 
TMD_ADDR ereerere =X 4 
TM_CLEANUP 8 8 $8 RG 4 
TM_ SETUP 0 RG 4 
VERIF 6D R 4 
VERIF YX Ke R 4 
VF Y_CLEANUP O0005A3 RG 04 
VFY CLEANUPX OOOCSBF R 4 
wOR = 00000002 G 
WRITE _MSG2 eeeeneee =X = 04 
ZEROPTD 00000110 R 03 

¢oemaae eeeeececesa + 

! Psect synopsis ! 
PSECT name Av location PSECT No. Attributes 
. ABS . 90000000 ¢ 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS 00000000 ( g.} 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD 
RODATA OOOO00A7 ( 167.) O02 ¢ ¢-} NOPIC USR CON REL LCL NOSHR NOEXE RD 
RWDATA 00000260 ( 608-3 8 ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SATSSS40 000005CO ( 1472.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD 

(sewer etree m nae cen ween ean $+ 
; Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 00:0 $90.06 6° 68:8 on 
Command processing 00:00:00.6 0 BR: 4 
Pass 1 295 BB: 0:08.9 88 0:15. 
Symbol table sort 0: *. 0 $3383. 
Pass 2 12 8: :02.1 BF 80: 5° 6 
Symbol table output 1 :00:00.1 0:00:00.14 
Psect synopsis output :00:00. 8: 3: Be 
Cross-reference output :00:00. :00:00. ° 
Assembler run totals 58 :00:12. 0:90:22.1 
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WRT NOVEC BYTE 
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! Macro Library statistics ! 


tm monn wee een wee er ame ee eee + 


Macro Library name Macros defined 
Sz gEDUA i peuet SAE re -MLB;1 
SSSDUA stat B;1 
$58 $SDUA gg here STARLET. Cale: 2 ¢ 
Terare (all libraries) 


B84 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/L!S=L1S5:SATSSS40/0BJ=0BJ$:SATSSS40 MSRC$:SATSSS40/UPDATE=(ENH$: SATSSS40) +EXECML$/LIB+SHRLIBS$:UETP/LIB 
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